home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9002a.d64 / magic code (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 POKE53280,0:POKE53281,0:BS=55457:PRINT"[147] [209]  [209]  [159][209]  [156][209]  [209]  [209]  [158][209]  [129][209] [155] FARB-"
  2. 2 PRINT" 1  2  3  4  5  6  7  8  AUSWAHL":PRINT:BC=1185:S=0:A=0:FOR I=1TO4
  3. 3 PRINT"[213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201] [152][213][195][201][155]":PRINT"[194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194]";
  4. 4 PRINT" [152][194][209][194][155]":PRINT"[202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203] [152][202][195][203][155]":NEXT
  5. 5 PRINT"[152][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201]":PRINT"[202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203]"
  6. 6 PRINT"[155] RICHTIGE FARBE  = [209]":PRINT"[155] RICHTIGE STELLE = [152][209]"
  7. 7 FORI=1TO4:N(I)=INT(RND(1)*8)+1:NEXT:IFN(1)=N(2)ORN(1)=N(3)ORN(1)=N(4)THEN7
  8. 8 IFN(2)=N(3)ORN(2)=N(4)ORN(3)=N(4)THEN7
  9. 9 Z=0:A=A+1:FOR X=1TO4:IFA>10THEN19
  10. 10 GET F$(X):IF F$(X)<CHR$(49)OR F$(X)>CHR$(56)THEN 10
  11. 11 POKEBC+Z,81:POKEBS+Z,VAL(F$(X)):Z=Z+120:NEXT:GOSUB12:BC=BC+3:BS=BS+3:GOTO9
  12. 12 P=0:FOR I=1 TO 4:IF N(I)=VAL(F$(I))THEN P=P+1:IF P=4THEN19
  13. 13 NEXT:Q=0:FOR I=1 TO 4
  14. 14 IF N(I)=VAL(F$(1))OR N(I)=VAL(F$(2))OR N(I)=VAL(F$(3))THENGOSUB18:GOTO16
  15. 15 IF N(I)=VAL(F$(4))THEN GOSUB 18
  16. 16 NEXT:Q=Q-P:POKE214,17:POKE211,S:SYS58640:PRINT""Q:POKE214,19:POKE211,S:SYS58640:PRINT"[152]"P
  17. 17 S=S+3:RETURN:REM*** MICHAEL GROCHOWSKI  1989 ***
  18. 18 Q=Q+1:RETURN
  19. 19 POKE55488,N(1):POKE55608,N(2):POKE55728,N(3):POKE55848,N(4)
  20. 20 PRINT"[158] NOCH EINMAL=SPACE ":POKE198,0:WAIT198,1:GETA$:IFA$=CHR$(32)THENRUN
  21.